home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / bbbbs84.lha / rexx / Contents.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-06-13  |  984 b   |  34 lines
  1. /*          $VER: Contents.rexx 5.9 (12.6.92)
  2. copyright 1990-93 Richard Lee Stockton  FREELY DISTRIBUTABLE
  3.  
  4.      Required in C: directory   arc dms lha unarj unzip zoo
  5. */
  6.  
  7. PARSE ARG argname emptyflag .
  8.  
  9. IF emptyflag~=1 THEN CALL DELETE('RAM:CONTENTS')
  10. endtest=UPPER(RIGHT(argname,4))
  11. arcomm=''
  12. IF endtest='.ARC' THEN arcomm='c:arc'
  13. IF endtest='.ZOO' THEN arcomm='c:zoo'
  14. IF arcomm~=''     THEN arcomm=arcomm 'v' argname
  15. ELSE IF endtest='.ARJ' THEN arcomm='c:unarj l' argname
  16. ELSE IF endtest='.DMS' THEN arcomm='c:dms VIEW' argname
  17. ELSE IF endtest='.ZIP' THEN arcomm='c:unzip -v' argname
  18. ELSE IF endtest='.LHA' | endtest='.LZH' | endtest='.RUN' THEN
  19.   arcomm='c:lha -N v' argname
  20. arcomm='CD RAM:' || '0A'x || arcomm
  21. IF emptyflag~=1 THEN
  22.   DO
  23.     CALL CLOSE(STDOUT)
  24.     CALL OPEN(STDOUT,'RAM:CONTENTS','W')
  25.   END
  26. ADDRESS COMMAND arcomm
  27. IF emptyflag~=1 THEN
  28.   DO
  29.     CALL CLOSE(STDOUT)
  30.     IF WORD(STATEF('RAM:CONTENTS'),2)=0 THEN CALL Contents.rexx(argname 1)
  31.   END
  32.  
  33. /* Contents.rexx */
  34.